home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 44
/
Amiga_Dream_44.iso
/
Amiga
/
workbench
/
archivers
/
mads1_3.lha
/
MADS
/
Install
/
MADS Install
< prev
Wrap
Text File
|
1997-07-30
|
5KB
|
165 lines
;**********************************************************************************************
;* *
;* Install Script for MADS v1.3 *
;* *
;* *
;* *
;* English Translation: Alvaro Thompson *
;* Spanish Translation: Alvaro Thompson *
;* Italian Translation: Ital 2.5 *
;* French Translation: Regis Falck *
;* *
;**********************************************************************************************
;
; $VER: MADS Install 1.3 (30.7.97)
(set lng @language)
(set version "1.3")
(
(set #info "Welcome to the MADS Installation Script!\n\nMADS is Copyright ⌐1997 Alvaro Thompson\nAll Rights Reserved.")
(set #where "Where do you wish to install MADS?\n(A Drawer will be created)")
(set #pp "I am now going to install the PowerPacker.library")
(set #reqtools "I am now going to install the Reqtools.library")
(set #visit "Please visit the MADS support site:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")
(set #name "Please enter your name\n(For future updates)")
)
(if (= lng "espa±ol")
(
(set #info "íBienvendo a la instalaci≤n de MADS v1!\n\nMADS es Copyright ⌐1997 Alvaro Thompson\nTodos los derechos reservado.")
(set #where "┐Donde quieres instalar MADS?\n(Un Caj≤n sera creado)")
(set #pp "Ahora voy a instalar PowerPacker.library")
(set #reqtools "Ahora voy a instalar Reqtools.library")
(set #visit "Visite el MADS web site:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")
(set #name "Ponga su nombre por favor\n(Para versiones futuras)")
))
(if (= lng "italiano")
(
(set #info "Benvenuto al MADS Script di Installazione!\n\nMADS Φ Copyright ⌐1997 Alvaro Thompson\nTutti i Diritti Riservati")
(set #where "Dove tu desideri installare MADS?\n(Un Cassetto sarα creato)")
(set #pp "Io sto ora per installare il PowerPacker.library")
(set #reqtools "Io sto ora per installare il Reqtools.library")
(set #visit "Per piacere Controlla il MADS Supportare sito:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")
(set #name "Per piacere inserisci il tuo nime\n(Per aggiornamenti futuri)")
))
(if (= lng "franτais")
(
(set #info "Bienvenue dans le script d'installation de MADS!\n\nMADS est Copyright ⌐1997 Alvaro Thompson\nTous Droits RΘservΘs.")
(set #where "O∙ voulez-vous installer MADS?\n(Un rΘpertoire sera crΘΘ)")
(set #pp "Je vais installer maintenant la PowerPacker.library")
(set #reqtools "Je vais installer maintenant la Reqtools.library")
(set #visit "Visite le MADS supporte:\n\nhttp://homepages.enterprise.net/alvaro/MADS/")
))
(message #info)
(set destination
(askdir
(prompt #where)
(help @askdir-help)
(default "Sys:")
)
)
(makedir (tackon destination "MADS"))
(set trgt (tackon destination "MADS"))
(copyfiles
(help @copylib-help)
(source "/Fonts/")
(dest "FONTS:")
(all)
)
(copylib
(prompt #reqtools)
(source "/Libs/reqtools.library")
(dest "LIBS:")
(help @copylibs-help)
)
(copylib
(prompt #pp)
(source "/Libs/powerpacker.library")
(dest "LIBS:")
(help @copylibs-help)
)
(copyfiles
(help @copyfiles-help)
(source "/")
(dest trgt)
(all)
)
(copyfiles
(help @copyfiles-help)
(source "//MADS.info")
(dest destination)
)
(delete (tackon trgt "Install" (all)))
(delete (tackon trgt "Install.info"))
(delete (tackon trgt "Fonts" (all)))
(delete (tackon trgt "Fonts.info"))
(delete (tackon trgt "Libs" (all)))
(delete (tackon trgt "Libs.info"))
(set @default-dest trgt)
(makedir "ENVARC:MADS")
(makedir "ENV:MADS")
(makedir "T:MADS")
(set name
(askstring
(prompt #name)
(help @askstring-help)
)
)
(textfile
(dest "T:MADS/Version")
(append "1.3")
)
(textfile
(dest "T:MADS/Path")
(append trgt)
)
(textfile
(dest "T:MADS/Name")
(append name)
)
(copyfiles
(help @copyfiles-help)
(source "T:MADS/")
(dest "ENVARC:MADS/")
(all)
)
(copyfiles
(help @copyfiles-help)
(source "T:MADS/")
(dest "ENV:MADS/")
(all)
)
(delete "T:MADS" (all))
(message #visit)